NIL 
(LAP SUBFUN1>PRED< SUBR) 
	(MOVEI 1 (QUOTE (* (%)))) 
	(CALL 1 (E MATCH)) 
	(JUMPE 1 TAG2) 
	(MOVEI 1 (QUOTE 0)) 
	(CALL 1 (E >PREPREDLET<)) 
	(JUMPE 1 TAG2) 
	(CALL 0 (E STK0)) 
	(JRST 0 TAG1) 
TAG2 	(MOVEI 1 (QUOTE (* (%)))) 
	(CALL 1 (E MATCH)) 
	(JUMPE 1 TAG4) 
	(MOVEI 1 (QUOTE 0)) 
	(CALL 1 (E >INFPREDLET<)) 
	(JUMPE 1 TAG4) 
	(CALL 0 (E STK0)) 
	(JRST 0 TAG1) 
TAG4 	(MOVEI 1 (QUOTE (* . *))) 
	(CALL 1 (E MATCH)) 
	(JUMPE 1 TAG6) 
	(MOVEI 1 (QUOTE 1)) 
	(CALL 1 (E >PREPREDLET<)) 
	(JUMPE 1 TAG6) 
	(MOVEI 1 (QUOTE 0)) 
	(CALL 1 (E >ITMLST<)) 
	(JUMPE 1 TAG6) 
	(CALL 0 (E STK1)) 
	(PUSH P 1) 
	(CALL 0 (E STK0)) 
	(CALL 1 (E NCONS)) 
	(POP P 2) 
	(CALL 2 (E XCONS)) 
	(JRST 0 TAG1) 
TAG6 	(MOVEI 1 (QUOTE (* * *))) 
	(CALL 1 (E MATCH)) 
	(JUMPE 1 TAG10) 
	(MOVEI 1 (QUOTE 2)) 
	(CALL 1 (E >INFPREDLET<)) 
	(JUMPE 1 TAG10) 
	(MOVEI 1 (QUOTE 1)) 
	(CALL 1 (E >TM<)) 
	(JUMPE 1 TAG10) 
	(MOVEI 1 (QUOTE 0)) 
	(CALL 1 (E >TM1<)) 
	(JUMPE 1 TAG10) 
	(CALL 0 (E STK1)) 
	(PUSH P 1) 
	(CALL 0 (E STK2)) 
	(PUSH P 1) 
	(CALL 0 (E STK0)) 
	(CALL 1 (E NCONS)) 
	(POP P 2) 
	(CALL 2 (E XCONS)) 
	(POP P 2) 
	(CALL 2 (E XCONS)) 
TAG10 
TAG1 	(POPJ P) 
	NIL 

(LAP >PRED< SUBR) 
	(MOVEI 2 (QUOTE SUBFUN1>PRED<)) 
	(JCALL 2 (E OUTRUL)) 
	NIL